10 ' *** OISAC 2 *** DATE ***
20 INPUT"Date JJ/MM/AAAA : ",D$:PRINT"Le jour est le ";LEFT$(D$,2),"Le mois est le ";MID$(D$,4,2),"L'annee est ";right$(D$,4);